% script to Analyze OBEM data for GIC studies


L = fday > datenum(2000, 4, 4) & fday < datenum(2000, 4, 11);
LL = fday_dst > datenum(2000, 4, 4) & fday_dst < datenum(2000, 4, 11);
subplot(221);
plot(fday_dst(LL), E_st(LL));
set(gca,'FontSize',12);
datetick('x', 'dd','keeplimits');
ylabel('Est nT');
title('April 2000 - OBEM5');
subplot(222)
plot(fday(L), Ey(L));
set(gca,'FontSize',12);
datetick('x', 'dd','keeplimits')
subplot(223);
plot(fday(L), Ex(L));
set(gca,'FontSize',12);
datetick('x', 'dd','keeplimits')
ylabel('Ex micro V/m');
subplot(222);
ylabel('Ey micro V/m');
set(gca,'FontSize',12);
subplot(224);
plot(fday(L), Bx(L));
set(gca,'FontSize',12);
ylabel('Bx nT');
datetick('x', 'dd','keeplimits')


